MacWorld 1999 April/Macworld (1999-04).dmg/Serious Software/GrooveMaker demo/GrooveMaker Demo/Media/Synth.dxr/00190_Field_buttare3.txt

Text File | 1998-07-27 | 33KB | 939 lines

on markSynth
  global gLastSynth,gFirstSynth,gLastSprite,gArp,gProg,gOn,gPosVolSynth,gPosPanSynth
  global markerSynthList,synthList,paramList,folderSynthList

  if gOn and (folderSynthList <> []) and not(the visible of window "help") then
    -- se c'è il fieldElencoSynthSalvati aperto si chiude e non prende il click
    if the visible of sprite 76 then
      pass
    else
      -- prende il click se non abbiamo già marcato 99 synth, se la seq che sta suonando non è già nella markerSynthList e/o se è cambiata anche solo nei parametri
      set temp = [field "fieldSynth",gArp,gProg,gPosVolSynth,gPosPanSynth]
      if (synthList <> []) and (getLast(markerSynthList) <> synthList or getLast(paramList) <> temp) and (count(markerSynthList) < 99) then
        set the memberNum of sprite 61 to the number of member "marker"
        updateStage

        -- si aggiorna la markerSynthList
        set temp = []
        repeat with i = 1 to count(synthList)
          append temp,getAt(synthList,i)
        end repeat
        append markerSynthList,temp

        -- si aggiorna il visore
        -- a visore ho ancora dei contenitori vuoti
        set gLastSynth = gLastSynth + 1
        if gLastSprite < 73 then
          set the memberNum of sprite (gLastSprite + 1) to the number of member string(gLastSynth)
          updateStage
          if gFirstSynth = 0 then
            set gFirstSynth = integer(the name of member the memberNum of sprite 68)
          end if
          set gLastSprite = gLastSprite + 1

        else
          -- i contenitori sono già tutti pieni quindi devono slittare tutti i numeri
          set start = count(markerSynthList)
          set the memberNum of sprite 73 to the number of member string(start)
          repeat with i = 72 down to 68
            set the memberNum of sprite i to the number of member string(start-(73-i))
            updateStage
          end repeat
          set gFirstSynth = gFirstSynth + 1
        end if

        -- si aggiorna la paramList
        set temp = [field "fieldSynth",gArp,gProg,gPosVolSynth,gPosPanSynth]
        append paramList,temp
      end if
    end if
  end if
end
****************************************************************
on stopMovie
  global gSwitch, gColor

  if ((the commandDown) and (the keyPressed = "q")) or(charToNum(the keyPressed) = 27) then

    if gSwitch then set the colorDepth = gColor

  end if
end
****************************************************************
-- marker nota
on mouseEnter
  if the visible of window "Help" then tell window "help" to go to frame "synth14"
end

on mouseLeave
  if the visible of window "Help" then tell window "help" to go to frame "start"
end
****************************************************************
-- click su una nota della prima ottava
on mouseUp
  global gProg,gOn
  global folderSynthList

  if gOn and (IKGetCurrentBeat() <> -1) and (folderSynthList <> []) and not(the visible of window "help") then
    -- se c'è il fieldElencoSynthSalvati aperto si chiude e non prende il click
    if the visible of sprite 76 then
      pass
    else
      playNote 1
    end if
  end if
end
****************************************************************
-- click su una nota della seconda ottava
on mouseUp
  global gProg,gOn
  global folderSynthList

  if gOn and (IKGetCurrentBeat() <> -1) and (folderSynthList <> []) and not(the visible of window "help") then
    -- se c'è il fieldElencoSynthSalvati aperto si chiude e non prende il click
    if the visible of sprite 76 then
      pass
    else
      playNote 2
    end if
  end if
end
****************************************************************
-- click su una nota della terza ottava
on mouseUp
  global gProg,gOn
  global folderSynthList

  if gOn and (IKGetCurrentBeat() <> -1) and (folderSynthList <> []) and not(the visible of window "help") then
    -- se c'è il fieldElencoSynthSalvati aperto si chiude e non prende il click
    if the visible of sprite 76 then
      pass
    else
      playNote 3
    end if
  end if
end
****************************************************************
-- click sul volume
on mouseEnter
  if the visible of window "Help" then tell window "help" to go to frame "synth2"
end

on mouseLeave
  if the visible of window "Help" then tell window "help" to go to frame "start"
end


on mouseDown
  global gOn
  global folderSynthList

  -- se c'è il fieldElencoSynthSalvati aperto non prende il mouseDown
  if gOn and not(the visible of sprite 76) and (folderSynthList <> []) and not(the visible of window "help") then
    repeat while the mouseDown
      set y = the mouseV
      if y > 54 then set y = 54
      if y < 9 then set y = 9
      set the locV of sprite 45 to y
      updateStage

      IKSynthVolume integer(128*(-y+54)/45)
    end repeat
  end if
end

on mouseUp
  global gOn,gPosVolSynth,gSynthSel
  global folderSynthList

  -- se c'è il fieldElencoSynthSalvati aperto non prende il mouseDown
  if gOn and not(the visible of sprite 76) and (folderSynthList <> []) and not(the visible of window "help") then
    set gPosVolSynth = the locV of sprite 45
    -- se c'è l'hilite intorno ai marker sparisce
    if gSynthSel then
      set the locH of sprite 74 to -20
      set gSynthSel = 0
    end if
  end if
end
****************************************************************
-- click sul pan
on mouseEnter
  if the visible of window "Help" then tell window "help" to go to frame "synth6"
end

on mouseLeave
  if the visible of window "Help" then tell window "help" to go to frame "start"
end


on mouseDown
  global gOn
  global folderSynthList

  -- se c'è il fieldElencoSynthSalvati aperto non prende il mouseDown
  if gOn and not(the visible of sprite 76) and (folderSynthList <> []) and not(the visible of window "help") then
    repeat while the mouseDown
      set y = the mouseV
      if y > 54 then set y = 54
      if y < 9 then set y = 9
      set the locV of sprite 46 to y
      updateStage

      IKSynthPan integer(128*(-y+54)/45)
    end repeat
  end if
end


on mouseUp
  global gOn,gPosPanSynth,gSynthSel
  global folderSynthList

  -- se c'è il fieldElencoSynthSalvati aperto non prende il mouseDown
  if gOn and not(the visible of sprite 76) and (folderSynthList <> []) and not(the visible of window "help") then
    set gPosPanSynth = the locV of sprite 46
    -- se c'è l'hilite intorno ai marker sparisce
    if gSynthSel then
      set the locH of sprite 74 to -20
      set gSynthSel = 0
    end if
  end if
end
****************************************************************
-- click sul led rosso
on mouseEnter
  if the visible of window "Help" then tell window "help" to go to frame "synth11"
end

on mouseLeave
  if the visible of window "Help" then tell window "help" to go to frame "start"
end

on mouseUp
  clickLed
end
****************************************************************
-- click sul led azzurro
on mouseEnter
  if the visible of window "Help" then tell window "help" to go to frame "synth11"
end

on mouseLeave
  if the visible of window "Help" then tell window "help" to go to frame "start"
end


on mouseUp
  global gOn,gOnSynth,gSynthSel
  global folderSynthList

  if gOn and (folderSynthList <> []) and not(the visible of window "help") then
    -- se c'è il fieldElencoSynthSalvati aperto si chiude e non prende il click
    if the visible of sprite 76 then
      pass
    else
      -- è acceso il led azzurro, diventa rosso e si mutano le note

      IKSynthStop
      set the visible of sprite 3 to true
      set gOnSynth = 0

      -- se c'è l'hilite intorno ai marker sparisce
      if gSynthSel then
        set the locH of sprite 74 to -20
        set gSynthSel = 0
      end if

    end if
  end if
end
****************************************************************
-- click su close
on mouseEnter
  if the visible of window "Help" then tell window "help" to go to frame "synth10"
end

on mouseLeave
  if the visible of window "Help" then tell window "help" to go to frame "start"
end


on mouseDown
  -- se c'è il fieldElencoSynthSalvati aperto non prende il mouseDown
  if not(the visible of sprite 76) and not(the visible of window "help") then
    repeat while the mouseDown
      set the memberNum of sprite 60 to the number of member "Hclose"
      updateStage
    end repeat
  end if
end


on mouseUp

  if not(the visible of window "help") then
    -- se c'è il fieldElencoSynthSalvati aperto si chiude e non prende il click
    if the visible of sprite 76 then
      pass
    else
      set the memberNum of sprite 60 to the number of member "close"
      updateStage

      close window "synth"
    end if
  end if
end
****************************************************************
-- click sul pulsante marker
on mouseEnter
  if the visible of window "Help" then tell window "help" to go to frame "synth5"
end

on mouseLeave
  if the visible of window "Help" then tell window "help" to go to frame "start"
end


on mouseDown
  global gArp,gProg,gOn,gPosVolSynth,gPosPanSynth
  global markerSynthList,synthList,paramList,folderSynthList

  -- se c'è il fieldElencoSynthSalvati aperto non prende il mouseDown
  if gOn and not(the visible of sprite 76) and (folderSynthList <> []) and not(the visible of window "help") then
    -- prende il click se non abbiamo già marcato 99 synth, se la seq che sta suonando non è già nella markerSynthList e/o se è cambiata anche solo nei parametri
    set temp = [field "fieldSynth",gArp,gProg,gPosVolSynth,gPosPanSynth]
    if (synthList <> []) and (getLast(markerSynthList) <> synthList or getLast(paramList) <> temp) and (count(markerSynthList) < 99) then
      repeat while the mouseDown
        set the memberNum of sprite 61 to the number of member "Hmarker"
        updateStage
      end repeat
    end if
  end if
end



on mouseUp
  markSynth
end
****************************************************************
-- click sul pulsante save
on mouseEnter
  if the visible of window "Help" then tell window "help" to go to frame "synth4"
end

on mouseLeave
  if the visible of window "Help" then tell window "help" to go to frame "start"
end


on mouseDown
  global gOn
  global synthList,folderSynthList

  -- se c'è il fieldElencoSynthSalvati aperto non prende il mouseDown
  if gOn and not(the visible of sprite 76) and (synthList <> []) and (folderSynthList <> []) and not(the visible of window "help") then
    repeat while the mouseDown
      set the memberNum of sprite 62 to the number of member "Hsave"
      updateStage
    end repeat
  end if
end


on mouseUp
  global gArp,gProg,gPath,gOn,gPosVolSynth,gPosPanSynth,gWav,gSong
  global synthList,synthSaveList,folderSynthList

  if gOn and (folderSynthList <> []) and not(the visible of window "help") then
    -- se c'è il fieldElencoSynthSalvati aperto si chiude e non prende il click
    if the visible of sprite 76 then
      pass
    else
      if (synthList <> []) then
        set the memberNum of sprite 62 to the number of member "save"
        updateStage

        -- creo il file di testo con le informazioni relative al synth cha sta suonando, in pratica scrivo due righe, una con le informazioni che analoghe alla markerSynthList e l'altra analoga alla paramList
        set testo = ""
        -- prima riga
        repeat with i = 1 to count(synthList)
          set testo = testo & getAt(synthList,i) & " "
        end repeat
        set testo = testo & numToChar(13) & numToChar(10)
        -- seconda riga
        set testo = testo & field "fieldSynth" & " "
        set testo = testo & gArp & " "
        set testo = testo & gProg & " "
        set testo = testo & gPosVolSynth & " "
        set testo = testo & gPosPanSynth & " "

        -- ricavo il nome da dare al file in base a quelli già presenti, li leggo nella synthSaveList
        set trovato = 1
        set i = 1
        repeat while trovato
          --          set nameFile = "synth" & i & ".txt"
          set nameFile = "s" & chars(gSong,5,length(gSong)) & "_" & i & ".txt"
          if getPos(synthSaveList,nameFile) then
            set i = i+1
          else
            set trovato = 0
          end if
        end repeat
        -- aggiorno la synthSaveList
        append synthSaveList,nameFile
        sort synthSaveList
        -- creo il file
        set myFile = new(xtra "fileio")
        createFile(myFile,gPath & "synthM:" & gWav & ":" & nameFile)
        openFile(myFile,gPath & "synthM:" & gWav & ":" & nameFile,2)
        writeString(myFile,testo)
        closeFile(myFile)
        set myFile = 0
      end if
    end if
  end if
end
****************************************************************
-- click sul pulsante empty
on mouseEnter
  if the visible of window "Help" then tell window "help" to go to frame "synth13"
end

on mouseLeave
  if the visible of window "Help" then tell window "help" to go to frame "start"
end



on mouseDown
  global gOn
  global synthList,folderSynthList

  -- se c'è il fieldElencoSynthSalvati aperto non prende il mouseDown
  if gOn and not(the visible of sprite 76) and (synthList <> []) and (folderSynthList <> []) and not(the visible of window "help") then
    repeat while the mouseDown
      set the memberNum of sprite 64 to the number of member "Hempty"
      updateStage
    end repeat
  end if
end



on mouseUp
  global gOn
  global synthList,folderSynthList

  if gOn and (folderSynthList <> []) and not(the visible of window "help") then
    -- se c'è il fieldElencoSynthSalvati aperto si chiude e non prende il click
    if the visible of sprite 76 then
      pass
    else
      if synthList <> [] then
        emptySynth
      end if
    end if
  end if
end
****************************************************************
-- click sul pulsante load
on mouseEnter
  if the visible of window "Help" then tell window "help" to go to frame "synth3"
end

on mouseLeave
  if the visible of window "Help" then tell window "help" to go to frame "start"
end



on mouseDown
  global gOn
  global synthSaveList,folderSynthList

  -- se c'è il fieldElencoSynthSalvati aperto non prende il mouseDown
  if gOn and not(the visible of sprite 76) and (folderSynthList <> []) and not(the visible of window "help") then
    -- si apre solo se abbiamo salvato almeno un synth
    if synthSaveList <> [] then
      repeat while the mouseDown
        set the memberNum of sprite 63 to the number of member "Hload"
        updateStage
      end repeat
    end if
  end if
end


on mouseUp
  global gOn,gPath,gWav
  global synthSaveList,folderSynthList

  if gOn and (folderSynthList <> []) and not(the visible of window "help") then
    set the memberNum of sprite 63 to the number of member "load"
    updateStage

    -- se c'è il fieldElencoSynthSalvati aperto si chiude e non prende il click
    if the visible of sprite 76 then
      pass
    else
      -- si apre solo se abbiamo salvato almeno un synth
      if synthSaveList <> [] then

        -- aggiorno il fieldElencoSynthSalvati, mostro solo i synth che sono caricati in questo momento
        put "" into field "fieldElencoSynthSalvati"
        repeat with i = 1 to count(synthSaveList)
          -- considero solo i synth salvati con la song caricata in questo momento
          set tSynth = getAt(synthSaveList,i)
          if chars(tSynth,2,offSet("_",tSynth)-1) = chars(gSong,5,length(gSong)) then
            put chars(tSynth,1,length(tSynth)-4) & return after field "fieldElencoSynthSalvati"
          end if
        end repeat
        set the scrollTop of member "fieldElencoSynthSalvati" to 0

        set the font of member "fieldElencoSynthSalvati" to "Helvetica"
        set the fontSize of member "fieldElencoSynthSalvati" to 12
        set the foreColor of member "fieldElencoSynthSalvati" to 0

        if field "fieldElencoSynthSalvati" <> "" then

          repeat with i = 76 to 79
            set the visible of sprite i to true
          end repeat
        end if

      end if
    end if
  end if
end
****************************************************************
-- click sul pulsante del mix
on mouseEnter
  if the visible of window "Help" then tell window "help" to go to frame "synth9"
end

on mouseLeave
  if the visible of window "Help" then tell window "help" to go to frame "start"
end


on mouseDown
  global gOnSynth

  -- se c'è il fieldElencoSynthSalvati aperto non prende il mouseDown
  if not (the visible of sprite 76) and not(the visible of window "help") and gOnSynth then
    repeat while the mouseDown
      set the memberNum of sprite 81 to the number of member "Hmix"
      updateStage
    end repeat
    cursor 4
  end if
end




on mouseUp
  global gFolderMix,gOnSynth,gWav,gPath,gBpmSong,gPath,gArp,gPosVolSynth,gPosPanSynth,gProg
  global virTrackList,volValList,panValList,stateTrackList,progList,arpList

  if not(the visible of window "help") then
    -- se c'è il fieldElencoSynthSalvati aperto si chiude e non prende il click
    if the visible of sprite 76 then
      pass
    else
      if gOnSynth then

        -- nome del file
        put directoryToList(gFolderMix) into tList
        set trovato = 1
        set j = 1
        repeat while trovato
          set nameFile = "synthMix" & j
          if getPos(tList,nameFile) then
            set  j = j + 1
          else
            set trovato = 0
          end if
        end repeat

        --        IKSynthStop
        --        IKStop

--        case(gWav) of
--          22: IKQualityFreq 22050
--          44: IKQualityFreq 44100
--        end case

        IKSynthMix(gFolderMix & nameFile)

        --        IKBegin "IKTRACK.X32 CTL3DV2.DLL"
--        IKSetSongBpm gBpmSong
        --        IKMasterVolume integer(field "fieldMasterVol")
--        IKMixBPM float(field "fieldBpm")
        --        repeat with i = 1 to 8
        --          if getAt(virTrackList,i) <> -1 and getAt(stateTrackList,i) <> "off" and getAt(stateTrackList,i) <> "mute" then
        --            IKVolume i,getAt(volValList,i)
        --            IKPan i,getAt(panValList,i)
        --            IKPlay i, getAt(virTrackList,i)
        --          end if
        --        end repeat
        --        if field "fieldSynth" <> "" then IKSetSynth gPath & "synth:synth" & gWav & ":" & field "fieldSynth" & ":"
        -- calcolo arp
        --        case(getPos(arpList,gArp)) of
        --          1,2,3,4:set arp = integer(chars(gArp,3,length(gArp)))/4
        --          otherwise
        --            set arp = 4
        --        end case
        --
        --        -- vol e pan
        --        IKSynthVolume integer(128*(-gPosVolSynth+54)/45)
        --        IKSynthPan integer(128*(-gPosPanSynth+54)/45)
        --        IKSynthArp getPos(progList,gProg)-1,arp,createSeq()

        set the memberNum of sprite 81 to the number of member "mix"
        updateStage

      end if
    end if
  end if
  cursor -1
end
****************************************************************
-- click sulla freccia left
on mouseDown
  global markerSynthList,folderSynthList

  -- se c'è il fieldElencoSynthSalvati aperto non prende il mouseDown
  if not(the visible of sprite 76) and (folderSynthList <> []) and not(the visible of window "help") then
    -- funziona se abbiamo marcato più di 8 synth e se il primo che si vede è diverso da 1
    if (count(markerSynthList) > 6) and (the name of member the memberNum of sprite 68 <> "1") then
      repeat while the mouseDown
        set the memberNum of sprite 65 to the number of member "Hleft"
        updateStage
      end repeat
    end if
  end if
end

on mouseUp
  global gFirstSynth,gLastSynth,gLastSprite,gSynthSel
  global markerSynthList,folderSynthList

  if (folderSynthList <> []) and not(the visible of window "help") then
    -- se c'è il fieldElencoSynthSalvati aperto si chiude e non prende il click
    if the visible of sprite 76 then
      pass
    else
      -- funziona se abbiamo marcato più di 6 synth e se il primo che si vede è diverso da 1
      if (count(markerSynthList) > 6) and (the name of member the memberNum of sprite 68 <> "1") then
        set the memberNum of sprite 65 to the number of member "left"
        updateStage

        set gFirstSynth = gFirstSynth - 1
        set nS = 67
        repeat with i = gFirstSynth to (gFirstSynth+5)
          set nS = nS+1
          set the memberNum of sprite nS to the number of member string(i)
          updateStage
        end repeat

        if gLastSprite = 73 then
          set gLastSynth = gLastSynth - 1
        else
          set gLastSprite = gLastSprite + 1
        end if

        -- controllo sull'hilite del marker (se c'è)
        if gSynthSel > gFirstSynth and gSynthSel < gLastSynth then
          set the locH of sprite 74 to (the locH of sprite 74) + 12
        else
          if gSynthSel = gFirstSynth then set the locH of sprite 74 to (the locH of sprite 68) + 1
          else
            if gSynthSel = gLastSynth then set the locH of sprite 74 to (the locH of sprite 73) + 1
            else
              set the locH of sprite 74 to -20
            end if
          end if
        end if

      end if
    end if
  end if
end
****************************************************************
-- click sulla freccia right
on mouseDown
  global gLastSprite
  global markerSynthList,folderSynthList

  -- se c'è il fieldElencoSynthSalvati aperto non prende il mouseDown
  if not(the visible of sprite 76) and (folderSynthList <> []) and not(the visible of window "help") then
    -- funziona se l'ultimo synth che si vede è diverso da gLastSynth
    if (the name of member the memberNum of sprite gLastSprite <> string(count(markerSynthList))) and (count(markerSynthList) <> 0) then
      repeat while the mouseDown
        set the memberNum of sprite 66 to the number of member "Hright"
        updateStage
      end repeat
    end if
  end if
end



on mouseUp
  global gLastSynth,gFirstSynth,gLastSprite,gSynthSel
  global markerSynthList,folderSynthList

  if (folderSynthList <> []) and not(the visible of window "help") then
    -- se c'è il fieldElencoSynthSalvati aperto si chiude e non prende il click
    if the visible of sprite 76 then
      pass
    else
      -- funziona se l'ultimo synth che si vede è diverso da gLastSynth
      if (the name of member the memberNum of sprite gLastSprite <> string(count(markerSynthList))) and (count(markerSynthList) <> 0) then
        set the memberNum of sprite 66 to the number of member "right"
        updateStage

        set gFirstSynth = gFirstSynth + 1
        set gLastSynth = gLastSynth + 1
        set nS = 67
        repeat with i = gFirstSynth to gLastSynth
          set nS = nS + 1
          set the memberNum of sprite ns to the number of member string(i)
          updateStage
        end repeat

        -- controllo sull'hilite del marker (se c'è)
        if gSynthSel > gFirstSynth and gSynthSel < gLastSynth then
          set the locH of sprite 74 to (the locH of sprite 74) - 12
        else
          if gSynthSel = gFirstSynth then set the locH of sprite 74 to (the locH of sprite 68) + 1
          else
            if gSynthSel = gLastSynth then set the locH of sprite 74 to (the locH of sprite 73) + 1
            else
              set the locH of sprite 74 to -20
            end if
          end if
        end if
      end if
    end if
  end if
end
****************************************************************
-- click sulla freccia up del fieldElencoSynthSalvati
on mouseUp
  if not(the visible of window "help") then scrollByLine member "fieldElencoSynthSalvati",-1
end
****************************************************************
-- click sulla freccia down del fieldElencoSynthSalvati
on mouseUp
  if not(the visible of window "help") then scrollByLine member "fieldElencoSynthSalvati",1
end
****************************************************************
-- click su un synth marcato
-- con il tasto sinistro compare l'hilite e lo sentiamo
-- con il tasto destro lo spostiamo
on mouseEnter
  if the visible of window "Help" then tell window "help" to go to frame "synth1"
end

on mouseLeave
  if the visible of window "Help" then tell window "help" to go to frame "start"
end



on mouseDown
  global gOn

  if (gOn) and not(the visible of sprite 76) and (char 1 of the name of member (the memberNum of sprite the clickOn) <> "m") and not(the visible of window "help") then
    -- compare l'hilite intorno al numero
    set the locH of sprite 74 to (the locH of sprite the clickOn) + 1
  end if
end



on mouseUp
  global gOnSynth,gArp,gProg,gPath,gWav,gOn,gPosVolSynth,gPosPanSynth,gSynthSel
  global synthList,markerSynthList,arpList,progList,paramList

  if gOn and not(the visible of window "help") then
    -- se c'è il fieldElencoSynthSalvati aperto si chiude e non prende il click
    if the visible of sprite 76 then
      pass
    else
      -- funziona se ho cliccato in una zona con dentro un numero
      if char 1 of the name of member (the memberNum of sprite the clickOn) <> "m" then
        -- compare l'hilite intorno al numero
        set gSynthSel = integer(the name of member the memberNum of sprite the clickOn)

        if not gOnSynth then set gOnSynth = 1

        set synthList = []
        repeat with k = 1 to count(getAt(markerSynthList,integer(the name of member the memberNum of sprite the clickOn)))
          append synthList,getAt(getAt(markerSynthList,integer(the name of member the memberNum of sprite the clickOn)),k)
        end repeat

        -- hilite delle note

        -- se la nota compare sia nella synthList precedente che nella synthList attuale non succede niente
        -- se la nota non compare nella synthList precedente e compare nella synthList attuale si accende l'hilite
        -- se la nota compare nella synthList precedente e non compare nella synthList attuale si spegne l'hilite
        repeat with i = 1 to 3
          set start = 12*(i-1) + 3
          repeat with j = 1 to 12
            set nota = the name of member the memberNum of sprite (start + j)
            if char 1 of nota = "y" then
              set nota = chars(nota,2,length(nota)) & i
              if not getPos(synthList,nota) then
                set nota = chars(nota,1,length(nota)-1)
                set the memberNum of sprite (start + j) to the number of member nota
                updatestage
              end if

            else
              set nota = nota & i
              if getPos(synthList,nota) then
                set nota = "y" & chars(nota,1,length(nota)-1)
                set the memberNum of sprite (start+j) to the number of member nota
                updateStage
              end if
            end if
          end repeat
        end repeat

        set temp = getAt(paramList,integer(the name of member the memberNum of sprite the clickOn))
        if field "fieldSynth" <> getAt(temp,1) then
          IKSynthStop
          put getAt(temp,1) into field "fieldSynth"
          IKSetSynth gPath & "synth:synth" & gWav & ":" & field "fieldSynth" & ":"
        end if
        set gArp = getAt(temp,2)
        set gProg = getAt(temp,3)
        put getAt(temp,3) into field "fieldProg"
        put getAt(temp,2) into field "fieldArp"
        put getAt(temp,1) into field "fieldSynth"
        set gPosVolSynth = getAt(temp,4)
        set gPosPanSynth = getAt(temp,5)

        -- riposiziono il vol e il pan
        set the locV of sprite 45 to gPosVolSynth
        set the locV of sprite 46 to gPosPanSynth
        updateStage

        -- aggiorno il play
        -- calcolo arp
        case(getPos(arpList,gArp)) of
          1,2,3,4:set arp = integer(chars(gArp,3,length(gArp)))/4
          otherwise
            set arp = 4
        end case

        -- vol e pan
        IKSynthVolume integer(128*(-gPosVolSynth+54)/45)
        IKSynthPan integer(128*(-gPosPanSynth+54)/45)
        IKSynthArp getPos(progList,gProg)-1,arp,createSeq()
      end if

    end if
  end if
end



on rightMouseDown
  global gOn,gSynthSel
  global prima

  if gOn and not(the visible of sprite 76) then

    -- funziona se ho cliccato su una zona con dentro il numero e se il synth scelto non è hilitato
    if (char 1 of the name of member (the memberNum of sprite the clickOn) <> "m") and (gSynthSel <> integer(the name of member the memberNum of sprite the clickOn)) then

      set the memberNum of sprite 88 to the number of member (the memberNum of sprite the clickOn)
      set the ink of sprite 88 to 36
      set the visible of sprite the clickOn to false

      repeat while the mouseDown
        set the locH of sprite 88 = the mouseH
        set the locV of sprite 88 = the mouseV
        updateStage
      end repeat

    end if

    set prima = 0
  end if
end


on rightMouseUp
  global gOn,gFirstSynth,gLastSynth,gLastSprite,gSynthSel
  global prima
  global markerSynthList,posRectList,paramList

  if gOn and not(the visible of sprite 76) then
    -- se non sono tornata nella posizione iniziale sparisce il synth dal visore e dalla markerSynthList
    -- lo sprite torna comunque al suo posto
    -- se il numero è vicino alla posizione iniziale torna al suo posto
    set prima = prima + 1
    if prima = 1 then
      set newPos = point(the mouseH,the mouseV)
      -- numero è il marker che sposto
      put integer(the name of member (the memberNum of sprite the clickOn)) into numero

      if inside(newPos,getAt(getAt(posRectList,the clickOn - 67),2)) then
        set the loc of sprite the clickOn = getAt(getAt(posRectList,the clickOn - 67),1)
        updateStage
      else
        -- se c'è un marker con hilite ed è più grande del numero che ho spostato faccio shiftare l'hilite a sinistra di un posto
        if gSynthSel > numero then
          set gSynthSel = gSynthSel - 1
          set the locH of sprite 74 to (the locH of sprite 74) - 12
        end if

        deleteAt markerSynthList,numero
        deleteAt paramList,numero
        -- non si è fermato vicino alla pos iniziale quindi scompare
        -- si riposizionano i synth a visore
        repeat with i = 68 to 73
          set the memberNum of sprite i to the number of member "m"
        end repeat
        case(count(markerSynthList)) of
          0:
            set gLastSynth = 0
            set gFirstSynth = 0
            set gLastSprite = 67

          otherwise
            if count(markerSynthList) < 6 then
              repeat with i = 1 to count(markerSynthList)
                set the memberNum of sprite (67+i) to the number of member string(i)
              end repeat
              set gLastSprite = gLastSprite - 1
            else
              repeat with i = 6 down to 1
                set the memberNum of sprite (67+i) to the number of member string(count(markerSynthList)-6+i)
              end repeat
              set gLastSprite = 73
            end if
            set gFirstSynth = integer(the name of member the memberNum of sprite 68)
            set gLastSynth = integer(the name of member the memberNum of sprite gLastSprite)
        end case
      end if
      set the loc of sprite the clickOn = getAt(getAt(posRectList,the clickOn - 67),1)
      updateStage
    end if
    set the visible of sprite the clickOn to true
    set the memberNum of sprite 88 to 1000
    updateStage
  end if
end